perm filename RDATA[4,KMC]7 blob
sn#031603 filedate 1973-03-22 generic text, type T, neo UTF8
00100 (SETQ QL @(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z '))
00200 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @LET))) QL)
00300
00400 (DEFPROP INIT 0 WT)
00500 (DEFPROP INIT INIT SET)
00600
00700 (DEFPROP INTROTOP (
00800 (RACKETSET)
00900 (GANGSTERSET)
01000 (PERSONSET)
01100 (CHEATSET)
01200 (BOOKIESET)
01300 (GAMBLERSET)
01400 (MONEYSET)
01500 (HORSERACINGSET)
01600 (POLICESET)
01700 (ITALIANSET)
01800 (HORSESET)
01810 (ARITHMETIC ADD SUBTRACT MULTIPLY DIVIDE PLUS MINUS TIMES
01820 TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN
01830 ELEVEN TWELVE THIRTEEN FOURTEEN FIFTEEN SIXTEEN
01840 SEVENTEEN EIGHTEEN NINETEEN TWENTY
01850 THIRTY FORTY FIFTY SIXTY SEVENTY EIGHTY NINETY HUNDRED)
01851 (PAT (PAT SMITH) )
01900 (AGE OLD) (MARRIED WIFE)
01910 (GIRL GIRLS GIRLFRIEND GIRLFRIENDS (GIRL FRIEND)(GIRL FRIENDS) CHICKS WOMEN)
02000 (OCCUPATION JOB WORK (FOR LIVING))
02010 (SERVICE ARMY NAVY VETERAN VIETNAM BRANCH)
02100 (LEAVE (GO HOME)(WHAT WANT ME) )
02200 (HOSPITAL HOSPITALIZED HOSPITALIZATION HOSPITALIZATIONS WARD WARDS
02300 HERE PATIENT (THIS PLACE))
02400 (PATIENTS )
02410 (COMPUTER COMPUTERS PROGRAM PROGRAMMER)
02420 (PERSON HUMAN BREATHE ALIVE PERSONALITY (MADE OUT OF) MACHINE MACHINES)
02500 (DOCTOR DR DOCTOR'S THERAPIST THERAPIST'S PSYCHIATRIST PSYCHIATRIST'S
02600 DOCTORS SHRINK SHRINKS DIAGNOSIS)
02700 (SEXLIFE SEX SEXUAL HOMOSEXUAL FAIRY QUEER PERVERT HOMO GAY DEVIATE
02800 (MALE FRIENDS) MASTURBATE MASTURBATION)
02900 (HEALTH SICK ILL PAINS APPETITE MEMORY REMEMBERING MINDS
03000 REMEMBERING SLEEP SLEEPING ASLEEP INSOMNIA MOOD MOODS
03100 DAYDREAM CONCENTRATE CONCENTRATION THOUGHTS THINKING FORGET FORGETFUL
03200 SUICIDE SICKNESS ILLNESS CONDITION LIQUOR DRINKING ALCOHOL DRINK
03210 (LOST WEIGHT)(LOSE WEIGHT)
03300 DRUGS LSD MARIHUANA MARIJUANA SPEED AMPHETAMINES DEXIDRINE DOPE HEROIN
03400 DEXEDRINE TRIPS COCAINE GRASS POT NARCOTIC NARCOTICS GREENS GREENIES REDS
03410 ACID ADDICTION ADDICT ADDICTED SMOKE)
03600 (DREAM DREAMS DREAMING NIGHTMARE NIGHTMARES)
03610 (DEPRESSION DEPRESSED SAD SADNESS BLUE BLUES )
03620 (SUICIDE SUICIDAL ( WORTH LIVING)(KILLING YOURSELF)(TAKING YOUR LIFE))
03700 (BRAIN (HEAD INJURY) (HOW HEAD))
03800 (MENTAL SPIRIT DEVIL (HEAR VOICES ))
03900 (VISIONS STRANGE BIZARRE UNUSUAL HALLUCINATIONS)
04000 (MEDICATION MEDICATIONS MEDICINE MEDICINES SEDATIVES PILLS TREATMENT THORAZINE THERAPY)
04100 (EDUCATION COLLEGE SCHOOL GRADUATE GRADUATED)
04200 (RELIGION JEWISH CATHOLIC) (RELIGIOUS CHURCH GOD)
04300 (ANCESTRY NATIONALITY DESCENT (NATIONAL BACKGROUND) ETHNIC)
04400 (FAMILY PARENTS FATHER MOTHER DAD MOM FATHER'S MOTHER'S CHILDHOOD)
04500 (SIBLINGS BROTHER SISTER BROTHERS SISTERS FRIENDS VISITORS)
04600 (HEIGHT TALL) (BUILD WEIGHT WEIGH)
04700 (BORN BIRTHPLACE)
04800 (RESIDENCE LIVE (WHERE FROM))
04900 (HOBBIES FUN SPARE EXCITEMENT RELAXATION INTERESTS INTEREST ACTIVITIES
05000 HOBBY LEISURE ENJOY ENJOYMENT)
05100 (MOVIES MOVIE FILMS)
05200 (RELATIONS PEOPLE PERSONS STAFF NURSES)
05210 (SWEARING SUCK SUCKS FUCK FUCKS SHIT FUCKING COCK SUCKER )
05300 (UPSET UPSETS UPSETTING DIFFICULTY DIFFICULTIES ANXIETY WORRY WORRIES
05400 TROUBLES TROUBLING FEARS
05500 COMPLAINTS PROBLEM PROBLEMS BOTHER BOTHERS BOTHERING MIND
05600 MATTER WRONG)
05700 (MALE MAN)
05800 (NAME)
06000 (TELL)
06100 (QUESTION)
06200 (MOMENT)
06300 (HELP NEED)
06400
06500 (OK (HOW FEEL) (HOW FEELING)(HOW MORNING)(HOW AFTERNOON)(HOW EVENING)
06510 (HOW TONIGHT)(HOW TODAY))
06600
06700 ) Q)
06800
06900 (SETQ QL @(
07000
07100 (ANCESTRY ((MY BACKGROUND IS BRITISH BUT I WAS BORN IN THIS COUNTRY)
07110 (MY PARENTS CAME FROM ENGLAND)))
07200 (AGE (TWENTY-EIGHT))
07210 (ARITHMETIC((I AM NOT HERE TO PLAY ARITHMETIC GAMES)
07220 (KNOCK IT OFF)
07230 (DROP DEAD)))
07300 (BORN ((I WAS BORN IN SAN JOSE)(I GREW UP IN SAN JOSE))(WELL STILL))
07400 (BRAIN ((MY HEAD IS FINE)(THERE IS NOTHING WRONG WITH MY HEAD)(AS I SAID MY HEAD IS OK)))
07500 (BUILD ((NOT VERY HEAVY)) (SENSITIVE BOTHER))
07501 (COMPUTER((I WAS WONDERING THE SAME THING ABOUT YOU)
07502 (I AM NOT A MACHINE, I AM A PERSON)
07506 (YOU SEEM QUITE SUSPICIOUS)))
07510 (DEPRESSION((I AM NOT DEPRESSED)
07520 (DEPRESSION IS NOT A PROBLEM)
07530 (I TOLD YOU I WAS NOT DEPRESSED)))
07600 (DOCTOR ((ASK THE DOCTOR)(ASK DR WEBER)) (ASK WHY LIKE TREAT) (MY AM) (DRNAME WHO NAME))
07700 (DREAM ((I DON'T REMEMBER DREAMS)(I DONT REALLY DREAM MUCH)(I DONT HAVE NIGHTMARES)))
07800 (EDUCATION ((I GRADUATED FROM HIGH SCHOOL)
07900 (I AM A HIGH SCHOOL GRADUATE)
08000 (I HAVE A HIGH SCHOOL DIPLOMA))(ENJOY LIKE)(AFTER THEN))
08100 (FAMILY ((WE WERE NEVER VERY CLOSE) (I DON'T HEAR MUCH FROM THEM)
08200 (I WOULD RATHER NOT DISCUSS MY FAMILY))(SEE HEAR))
08300 (GIRL ((I DON'T HAVE A GIRL FRIEND AT THE PRESENT TIME) (THAT'S NOT IMPORTANT NOW)
08400 (I'D RATHER BE A BACHELOR))
08500 (HAVEQ (WHAT IMPORTANT)))
08600 (HEALTH (NO) (OK HOW (WHAT LIKE) (WHAT NOW) RIGHT) (SEXLIFE SEX ORGASM) (WELL))
08700 (HEIGHT ((NOT TOO TALL)) (SENSITIVE BOTHER))
08800 (HELP ((I DON'T REALLY NEED HELP LIKE THEY THINK)
08900 (THE ONLY HELP I NEED IS TO GET OUT)
09000 (WHAT I NEED IS TO BE DISCHARGED)
09100 (BEING IN THE HOSPITAL DOESNT HELP)) (WHY WAY))
09200 (HOBBIES ((I LIKE HORSERACES)(I ENJOY HORSERACING)(PLAYING THE HORSES IS MY HOBBY)
09300 (I FOLLOW THE HORSES)))
09400 (HOSPITAL ((I SHOULDN'T HAVE COME HERE)
09500 (ITS NOT HELPING ME MUCH TO BE HERE)
09600 (BEING HERE UPSETS ME)
09700 (THIS HOSPITAL GIVES ME THE CREEPS))
09800 (BRINGER (WHO BROUGHT) ANYONE PUT)
09900 (ALONG (DO LIKE) HAPPY TREAT)
10000 (SINCE LONG) (HEALTH EVER (BEEN BEFORE) PREVIOUS FREQUENTLY)
10100 (WELL (FIRST TIME)) (DATE (WHEN ENTER) (WHEN COME))
10200 (DOCTOR (EXPECT LEAVE) (PLAN LEAVE)) (FIRST (MANY TIMES) OFTEN) (TALK SAFE)
10300 (LEAVE (LIKE OUT) (WANT OUT) (GET OUT) (BE OUT) DISCHARGED DISCHARGE)
10400 (SHDNT (WHY NOT) (WHY SHOULDN'T) (WHY SAY) MEAN)
10410 (WHYHOSP WHY (WHAT BROUGHT))
10500 (SHDBE (WHERE LIKE BE) (WHERE BELONG))
10600 (NOINF NAME)
10700 )
10800 (LEAVE ((I WOULD LIKE TO BE DISCHARGED NOW)
10900 (I WANT TO LEAVE AS SOON AS POSSIBLE)
11000 (I WANT TO GET OUT SOON)))
11100 (MALE ((I'M A MAN)(I TOLD YOU I AM A MAN)(I AM NOT FEMALE)))
11200 (MARRIED (NO) (WANT LIKE WISH) (NOT WHY))
11300 (MEDICATION ((I TAKE SOME SORT OF SEDATIVES)
11400 (I'M ON TRANQUILLIZERS)
11500 (THEY GIVE ME PILLS THREE TIMES A DAY))
11600 (NOINF NAME))
11700 (MENTAL ((OF COURSE NOT)(NOT AT ALL)(NEVER)) (WHAT HOW))
11800 (MOMENT (NO) (WHERE) (HAPPEN WHAT) (OK FEEL FEELING))
12000 (NAME ((MY NAME IS PAT SMITH)(I TOLD YOU MY NAME)) (NOINF MY))
12100 (OCCUPATION ((I WORK AT SEARS) (I WORK IN THE STOCKROOM AT SEARS )
12200 (I AM A STOCKCLERK)
12300 (I THOUGHT I TOLD YOU I AM EMPLOYED BY SEARS))
12400 (STAY WHY) (LONG SINCE)
12500 (INTEREST INTERESTED INTERESTING LIKE FEELINGS FEEL ENJOY DISLIKE))
12700 (PATIENTS ((I DON'T TALK WITH THE OTHER PATIENTS)
12800 (I DON'T HAVE MUCH TO DO WITH OTHER PATIENTS)
12900 (I'M NOT INTERESTED IN THE PATIENTS HERE))
13000 (WHY DONT DON'T ARENT AREN'T))
13010 (PERSECUTE((YOU ARE HINTING I AM PARANOID)
13020 (NO, I AM NOT PARANOID)))
13030 (PERSON((I AM A PATIENT IN THE HOSPITAL)
13040 (I TOLD YOU ALREADY I AM A PATIENT HERE)))
13100 (QUESTION ((I DONT UNDERSTAND/, PLEASE ASK YOUR QUESTION USING OTHER WORDS)
13110 (COULD YOU REPHRASE THE QUESTION?)
13120 (TRY ASKING ME IT AGAIN IN OTHER WORDS))
13130 (IQ (I HAVE)(I ASK))
13140 (HAVEQ HAVE ASK))
13200 (RELATIONS ((I GET ALONG OK)
13300 (I DO ALL RIGHT)
13400 (I TRY TO BE A REGULAR GUY))
13600 (PERSECUTE WHISPER (TAKE ADVANTAGE)(BEHIND BACK))
13700 (DISLIKE MAD ANTAGONISTIC ANGRY AFRAID SUSPICIOUS DISTRUST MISTRUST)
13800 (WATCH SAY TALK) (STAY REJECT) (ALONG) (WHEN AVOID) (PERSONS WHAT))
13900 (RELIGION ((I'M PROTESTANT)(I AM A METHODIST)) (RELIGIOUS STRONGLY))
14000 (RESIDENCE (IN CALIFORNIA) (PLACE CITY (HOME TOWN) WHERE PLACE PART) (LIKE DISLIKE ENJOY) (WITH)
14100 (ALONE))
14200 (SEXLIFE ((I DON'T HAVE PROBLEMS LIKE THAT)
14300 (MY SEXLIFE IS MY OWN BUSINESS)
14400 (I WOULD RATHER NOT DISCUSS SEX)))
14500 (SIBLINGS ((NO) (I AM AN ONLY CHILD))(WHY))
14501 (PAT ((IM GLAD YOU REMEMBER MY NAME)
14502 (ITS ALL RIGHT TO CALL ME PAT )))
14510 (SUICIDE((I AM NOT SUICIDAL)
14520 (I HAVE NO INTENTION OF KILLING MYSELF)))
14521 (SWEARING((PLEASE WATCH YOUR LANGUAGE)
14522 (YOU MUST BE MAD AT SOMEBODY)
14523 (YOU HAVE A FOUL MOUTH)))
14530 (TELL((I WENT TO THE TRACK AT BAY MEADOWS A WHILE BACK)
14540 (HORSERACING INTERESTS ME)
14550 (I GAMBLE ON HORSES))
14560 (BAY THERE DID WHY SO AND TRACK REALLY)(THAT WHERE))
14800 (UPSET (YES ) (ANYONE ANYTHING SOMEONE WHO) (DISCUSS TALK TELL WHAT WHY WHAT'S)
14900 (DISLIKE STARE))
15000 (VISIONS ((YOU MUST THINK I'M LIKE THE OTHER PATIENTS HERE)
15010 (I'M NOT LIKE THE OTHER PATIENTS)))
15100
15200 (RACKETSET ())
15300 (GANGSTERSET () (ACQUAINTED KNOW ) ( FEAR AFRAID DISLIKE LIKE))
15400 (PERSONSET () (ALIOTO CAPONE HIM HE KNOW ACQUAINTED))
15500 (CHEATSET () (GYP HOW WHERE WHEN))
15600 (BOOKIESET ())
15700 (GAMBLERSET ())
15800 (MONEYSET ())
15900 (HORSERACINGSET () (BOOKIES QUIT STOP DIDN'T DON'T))
16000 (POLICESET ())
16100 (ITALIANSET () (ACQUAINTED KNOW) (FEEL LIKE DISLIKE) (ANCESTRY (ARE YOU ITALIAN)))
16200 (HORSESET ())
16300
16400 (ABOUT ((NOTHING ONE WAY OR THE OTHER) (NOTHING IN PARTICULAR)))
16500 (ACQUAINTED ((I HAVE NOTHING TO DO WITH CRIMINALS)))
16600 (AFTER ((I WENT INTO THE SERVICE AFTER GRADUATION))
16610 (SERVICE BRANCH ARMY NAVY AIRFORCE))
16700 (ALIOTO ((HE HAD SOMETHING TO DO WITH THE UNDERWORLD)(HE IS A CROOK)))
16800 (ALONE (YES))
16900 (ALONG ((I DON'T COMMUNICATE VERY MUCH WITH OTHERS)
17000 (I DON'T CONFIDE IN OTHER PEOPLE))
17100 (WHY DON'T) (OTHERS OTHER WHO) (WATCH WHAT CONFIDE REJECT))
17200 (ANYONE ((SOME PEOPLE)(CERTAIN PERSONS)) (PERSONS WHO MEAN WHICH NAMES NAME SUCH))
17400 (ASK ((HE IS SUPPOSED TO KNOW WHAT'S GOING ON)(HE IS THE EXPERT)) (TALK WHAT))
17500 (BAD ((I MEAN NOT TOO MANY FOREIGN TYPES)(CERTAIN FOREIGNERS))
17510 (IMMIGRANT SPANISH MEXICAN FOREIGN FOREIGNERS))
17600 (BAY ((THERE'S ALOT OF CROOKED GAMBLING GOING ON THERE)) (GOING IS WHAT))
17700 (BOOKIES (BOOKIES ARE CROOKS))
17800 (BRINGER (I BROUGHT MYSELF TO THE HOSPITAL ))
17900 (CAPONE (GANGSTER FILMS ARE KIND OF INTERESTING) (WAY INTERESTING HOW ))
18100 (DATE (TWO WEEKS AGO))
18300 (DISCUSS ((PEOPLE GET ON MY NERVES SOMETIMES)
18400 (I THOUGHT I TOLD YOU PEOPLE GET ON MY NERVES))
18500 (HLONG (HOW LONG)) (DISCUSS1 WHY HOW WHAT PEOPLE)
18600 (ANYONE WHO))
18700 (DISCUSS1 ((IT BOTHERS ME JUST TO BE AROUND PEOPLE IN GENERAL)
18710 (MAYBE THEY UNNERVE ME))
18810 (HOW WHY THEY WHAT))
18900 (DISLIKE (WELL/, SOMETIMES) (WHOM WHO ANYONE WHEN WHY))
19000 (DON'T (I JUST DON'T WANT TO))
19100 (DRNAME (DR WEBER))
19200 (ENJOY (IT WAS OK))
19600 (FEAR ((I THINK HOODS ARE THE WORST TYPE OF GANGSTERS)
19650 (WHAT DO YOU KNOW ABOUT GANGSTERS?)))
19700 (FEEL ((I TRY TO AVOID ITALIANS)(I DON'T WANT TO HAVE ANYTHING TO DO WITH ITALIANS))
19710 (ACQUAINTED WHY))
19800 (FIRST (THIS IS THE FIRST TIME))
19900 (FOREIGNERS ((ITALIANS FOR INSTANCE)(LIKE ITALIANS)))
20000 (FRIENDLY (SOME OF THEM TEND TO AVOID ME- SO I AVOID THEM) (WHOM WHO ANYONE))
20100 (GOING (THERE ARE SOME TRICKY OPERATORS DOWN THERE) (KNOW WHAT OPERATORS WHO HOW WAY)
20200 (GYP TRICK))
20300 (GYP (THE BOOKIES DIDN'T PAY UP ONCE))
20400 (HAPPEN (I'M NOT SURE))
20500 (HAVEQ ((WHAT EXPERIENCE HAVE YOU HAD GAMBLING ?)
20600 (HAVE YOU HAD ANY EXPERIENCE WITH RACKETEERS ?)))
20700 (HLONG (FOR SOME TIME))
20800 (HOW ((I DONT KNOW BUT PEOPLE JUST MAKE ME UNCOMFORTABLE)
20810 (I GET A VERY UNEASY FEELING)))
20900 (IQ (SURE))
21000 (IMMIGRANT (THOSE FOREIGNERS ARE TRYING TO TAKE OVER THE COUNTRY)
21100 (FOREIGNERS FOREIGN BAD) (WAY HOW))
21200 (INDOOR (I DON'T FEEL COMFORTABLE THERE)
21300 (TALK UPSET WAY BOTHER WHY COMFORTABLE UNCOMFORTABLE))
21400 (INTEREST ((IT'S NOT TOO INTERESTING/, I LOOK FORWARD TO GETTING OFF WORK )
21500 (NOT PARTICULARLY))
21600 (MOVIES FIVE AFTER AFTERWARDS) (DIFFERENT ANOTHER) (STAY WHY))
21700 (INTERESTING ((THEY SHOW HOW EASY IT IS TO GET INTO TROUBLE)) (TROUBLE WHO WHOM))
21800 (KNOW (THE GUYS INVOLVED IN THE HORSERACING RACKET))
21900 (LIKE (IT'S ALL RIGHT- NOT AS FRIENDLY AS PEOPLE MAKE IT OUT TO BE/, THOUGH)
22000 (FRIENDLY UNFRIENDLY WHAT HOW WHO))
22100 (LONG (TWO YEARS))
22200 (MY (GLAD TO MEET YOU))
22300 (NOINF ((I DON'T REMEMBER) (I DON'T RECALL)))
22400 (NOT (SO WHAT IF I'M NOT?))
22500 (OFTEN (ABOUT ONCE A WEEK))
22600 (OK ((ALL RIGHT I SUPPOSE)(OK)) (ABOUT))
22700 (OPERATORS (YOU KNOW) (KNOW WHAT DON'T))
22800 (OTHERS ((THE OTHERS IN THE HOSPITAL)(OTHER PATIENTS)))
22900 (PERSONS ((DO YOU KNOW ANYTHING ABOUT BOOKIES)(WHAT IS YOUR FEELING ABOUT BOOKIES)))
23000 (PLACE (SAN JOSE/. NOT A BAD SECTION/, THOUGH) (BAD MEAN) (LIKE) (WELL (LIVED LIFE)))
23100 (PUT (THEY LOOK DOWN ON YOU))
23200 (RELIGIOUS ((MY RELIGION IS MY OWN BUSINESS)(I DONT WANT TO DISCUSS RELIGION)))
23210 (SERVICE ((I WAS A CLERK IN THE ARMY)(I WAS NEVER IN VIETNAM)(I DONT WANT TO TALK ABOUT IT)))
23300 (SHDBE (I SHOULD BE OUT OF HERE))
23400
23500 (SHDNT ((THE DOCTORS GOT ME TO COME HERE)
23600 (THEY TALKED ME INTO COMING TO THE HOSPITAL)) (BROUGHT WHO))
23700 (SEE ((WE SEE EACH OTHER ONCE IN A WHILE)(VERY RARELY)))
23800 (SINCE (FOR ABOUT TWO WEEKS))
24000 (STAY (PEOPLE ARE PRETTY MUCH THE SAME ALL OVER) (DISCUSS THEY MEAN ALONG)
24100 (TRUE HOW WAY AGREE))
24200 (TALK (YOU JUST CAN'T TELL ABOUT PEOPLE) (PERSONS WHO WHAT))
24500 (THAT (I WENT TO THE RACES))
24600 (TROUBLE (THE SYNDICATE KNOWS EVERYTHING) (OPERATORS ORGANIZATION))
24700 (TRUE ((I KEEP MY EYE ON PEOPLE)(YOU JUST HAVE TO WATCH OUT FOR PEOPLE)) (WATCH MEAN WAY WHY))
24800 (TYPE (GANGSTER MOVIES))
24900 (WANT (YES/, I THINK SO))
25000 (WATCH ((THEY WILL TRY TO PUT YOU DOWN)) (PUT WHY HOW WAY MEAN))
25100 (WAY ((THEY ARE RESPONSIBLE FOR ALOT OF THE CRIME WE HAVE)))
25200 (WELL (YES))
25300 (WHAT (ALL RIGHT- DO YOU THINK I'M LIKE THE REST OR SOMETHING?))
25500 (WHERE (THE HOSPITAL))
25600 (WHOM ((SOME PEOPLE ACT KIND OF FUNNY/. LIKE SOME OF THOSE IMMIGRANT TYPES I WORK WITH))
25700 (HOW WAY) (IMMIGRANT IMMIGRANTS))
25800 (WHY (THEY DON'T REALIZE WHAT'S GOING ON MOST OF THE TIME) (PERSONS WHAT))
25810 (WHYHOSP ((I AM SOMEWHAT UPSET)(I THOUGHT I TOLD YOU I WAS UPSET) )(DISCUSS WHY SOMEWHAT WHAT))
25900 (WITH (I LIVE ALONE))
26000
26100
26200
26300 (YOU (I DON'T WANT TO TALK ABOUT THIS ANY MORE))
26400 ))
26500
26600 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CADR X) @A))) QL)
26700 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CDDR X) @Q))) QL)
26800
26900 (DEFPROP NEGS (NO NOT DON'T CAN'T CANNOT WON'T WOULDN'T COULDN'T NEVER HARDLY
27000 DONT CANT WONT WOULDNT COULDNT) IND)
27100
27200 ~ TOKENINF IS A LIST CONTAINING SEMANTIC INFORMATION AND REPLIES
27300 ~ RELEVANT TO ATTITUDE_TOKENS. IT IS A LIST OF LISTS, EACH OF WHICH
27400 ~ REFERS TO A PARTICULAR ATTITUDE AND WHICH HAS THE FOLLOWING FORMAT:
27500
27600 ~ (
27700 ~ (POSITIVE ATTITUDE TOKENS, E.G. X FRIENDLY Y)
27800 ~ (POSITIVE ATTITUDE CAUSATION TOKENS, E.G. X PLEASE Y)
27900 ~ (NEGATIVE ATTITUDE TOKENS, E.G. X ANGRY Y)
28000 ~ (NEGATIVE ATTITUDE CAUSATION TOKENS, E.G. X ANGER Y)
28100 ~ (LIST OF POSITIVE I-YOU REPLIES)
28200 ~ (LIST OF POSITIVE YOU-ME REPLIES)
28300 ~ (LIST OF NEGATIVE I-YOU REPLIES)
28400 ~ (LIST OF NEGATIVE YOU-ME REPLIES)
28500 ~ )
28600
28700
28800 (SETQ TOKENINF @(
28900 (
29000 (HELP ASSIST AID SUPPORT HELPFUL HELPING INTERESTED)
29100 (INTEREST)
29200 (HARM HURT) (N )
29300 (
29400 (IT IS HELPFUL TO TALK WITH SOMEONE OUTSIDE THE HOSPITAL)
29500 (YOU CAN HELP ME BY LISTENING TO WHAT I HAVE TO SAY)
29600 (IT WOULD HELP IF YOU UNDERSTOOD MY SIDE OF THE STORY)
29700 )
29800 (
29900 (I WILL HELP YOU IF I TRUST YOU)
30000 (I AM TRYING TO HELP YOU UNDERSTAND ME)
30100 )
30200 (
30300 (YOU HAVEN'T HELPED ME MUCH SO FAR)
30400 )
30500 (
30600 (I AM DOING MY BEST)
30700 (THERE IS NO NEED TO SCOLD ME)
30800 )
30900 )
31000 (
31100 (APPROVE ) (N)
31200 (CRITICIZE ACCUSE BLAME RIDICULE CRITICAL ATTACK) (N)
31300 (
31400 (IT'S NICE OF YOU TO SAY SO)
31500 )
31600 (
31700 (I'M TRYING TO)
31800 )
31900 (
32000 (YOU SHOULD TRY TO BE AS OBJECTIVE AS YOU CAN)
32100 (I ASSUME YOU ARE DOING YOUR BEST TO BE NEUTRAL)
32200 )
32300 (
32400 (MAYBE YOU DESERVE IT)
32500 (ISN'T IT POSSIBLE YOU EARNED IT?)
32600 )
32700 )
32800 (
32900 (AGREE BELIEVE ACCEPT FAVOR ASSURE REASSURE)
33000 (CONVINCE PERSUADE)
33100 (DISAGREE DISBELIEVE ARGUE) (N)
33200 (
33300 (I WOULD HOPE SO)
33400 (AT LEAST YOU ARE TRYING TO UNDERSTAND)
33500 )
33600 (
33700 (I WILL TRY)
33800 )
33900 (
34000 (YOU FIND IT HARD TO SEE MY SIDE OF IT)
34100 (WHOSE SIDE ARE YOU ON ANYWAY?)
34200 (I FEEL YOU DON'T REALLY UNDERSTAND ME)
34300 )
34400 (
34500 (WHY SHOULD YOU EXPECT ME TO GO ALONG WITH YOU?)
34600 )
34700 )
34800 (
34900 (UNDERSTAND FOLLOW ATTENTION COMMUNICATE) (N)
35000 (MISUNDERSTAND MISUNDERSTOOD CONFUSED PUZZLED) (CONFUSE PUZZLE )
35100 (
35200 (I'M GLAD YOU ARE PAYING SUCH ATTENTION)
35300 (I APPRECIATE YOUR TRYING TO UNDERSTAND)
35400 ( I THINK YOU SEE MY SIDE OF ALL THIS)
35500 )
35600 (
35700 (I'M DOING MY BEST TO UNDERSTAND YOUR QUESTIONS)
35800 (IT'S MORE IMPORTANT THAT YOU UNDERSTAND ME)
35900 )
36000 (
36100 (YOU SHOULD PAY MORE ATTENTION)
36200 (IT'S CLEAR TO ME IF NOT TO YOU)
36300 )
36400 (
36500 (I'M DOING MY BEST TO UNDERSTAND YOU)
36600 (YOU ARE THE ONE WHO DOESN'T UNDERSTAND)
36700 )
36800 )
36900 (
37000 (TRUST CONFIDE SHARE JOIN SYMPATHIZE) (N)
37100 (DISTRUST MISTRUST SUSPECT SUSPICIOUS) (N)
37200 (
37300 (I DON'T NEED A PAL/, I NEED SOMEONE WHO IS OBJECTIVE)
37400 )
37500 (
37600 (YOU SHOULD BE ABLE TO TELL WHETHER I TRUST YOU)
37700 (I WILL DO MY PART IF YOU DO YOURS)
37800 )
37900 (
38000 (YOU NEED TO BE MORE TRUSTING OF WHAT YOU HEAR)
38100 (SHOULD ONE ALWAYS BE SUSPICIOUS OF STRANGERS?)
38200 )
38300 (
38400 (I HAVE GOOD REASON TO BE THAT WAY)
38500 (I DON'T TRUST JUST ANYBODY)
38600 )
38700 )
38800 (
38900 (LIKE LOVE CARE) (N)
39000 (DISLIKE HATE) (N)
39100 (
39200 (YOU ARE TRYING TO BE TOO FRIENDLY)
39300 )
39400 (
39500 (IT'S NOT A MATTER OF LIKE OR DISLIKE)
39600 (I AM TRYING TO BE NEUTRAL TOWARDS YOU)
39700 )
39800 (
39900 (I ASSUME YOU ARE DOING YOUR BEST WITH ME)
40000 (I WOULD WANT YOU FOR ME RATHER THAN AGAINST ME)
40100 )
40200 (
40300 (THIS IS NOT A MATTER OF PERSONAL LIKE OR DISLIKE)
40400 (YOU SEEM MORE INTERESTED IN YOURSELF THAN IN HELPING ME)
40500 )
40600 )
40700 (
40800 (PLEASED HAPPY FRIENDLY COOPERATIVE) (N )
40900 (ANGRY IRRITATED ANNOYED HOSTILE REJECTING AGGRAVATED UNFRIENDLY
41000 MAD SORE DEFENSIVE PISSED SENSITIVE UNCOOPERATIVE
41100 QUARRELSOME SARCASTIC OPINIONATED ACCUSATORY
41200 ARGUMENTATIVE PEEVED PEEVISH)
41300 (ANGER IRRITATE IRRITATING AGGRAVATE ANNOY BUG BORE)
41400 (
41500 (IM GLAD YOU ARE PLEASED)
41600 )
41700 (
41800 (MY FEELINGS TOWARDS YOU ARE NOT THE POINT)
41900 )
42000 (
42100 (YOU SEEM A BIT NEGATIVE TO ME AT TIMES)
42200 (YOUR OWN NEGATIVE FEELINGS CAN INTERFERE WITH AN INTERVIEW)
42300 )
42400 (
42500 (SOME OF YOUR REMARKS ANNOY ME)
42600 (YOUR APPROACH IS NOT TOO COOL)
42700 )
42800 )
42900 (
43000 (CALM RELAXED) (CONSOLE COMFORT)
43100 (SCARED AFRAID FRIGHTENED NERVOUS ANXIOUS THREATENED
43200 UNEASY WARY FEARFUL TENSE)
43300 (FRIGHTEN SCARE THREATEN)
43400 (
43500 (THAT'S STRANGE)
43600 )
43700 (
43800 (I DON'T SCARE EASILY)
43900 )
44000 (
44100 (I THINK IT IS THE OTHER WAY AROUND)
44200 )
44300 (
44400 (SOMETIMES YOUR QUESTIONS SCARE ME)
44500 (I DO NOT LIKE TO BE THREATENED)
44600 )
44700 )
44800 ))
44900
45000
45100 ~ THIS FUNCTION APPLIES THE GIVEN OPERATIONS TO ALL ATTITUDES
45200
45300 (MAPCAR (FUNCTION (LAMBDA (L)
45400 (PROG NIL
45500
45600 ~ MARK EACH TOKEN AS INSTANCE OF THE POSITIVE ATTITUDE
45700 ~ AT THE HEAD OF LIST 1
45800
45900 (MAPCAR (FUNCTION (LAMBDA (X)
46000 (PUTPROP X (CAAR L) @ATTIT)))
46100 (APPEND (CAR L) (CADR L) (CADDR L) (CADDDR L)) )
46200
46300 ~ MARK NEGATIVE TOKENS
46400
46500 (MAPCAR (FUNCTION (LAMBDA (X)
46600 (PUTPROP X T @NEG))) (APPEND (CADDR L) (CADDDR L)) )
46700
46800 ~ MARK CAUSATION TOKENS
46900
47000 (MAPCAR (FUNCTION (LAMBDA (X)
47100 (PUTPROP X T @FLIP))) (APPEND (CADR L) (CADDDR L)) )
47200
47300 ~ MARK ATTITUDE WITH ITS NEGATIVE COUNTERPART
47400
47500 (PUTPROP (CAAR L) (CAADDR L) @OPP)
47600
47700 ~ ASSOCIATE I_YOU AND YOU_ME REPLIES WITH EACH POSITIVE AND NEGATIVE ATTITUDE
47800
47900 (PUTPROP (CAAR L) (CAR (CDDDDR L)) @IYREPLIES)
48000 (PUTPROP (CAAR L) (CADDR (CDDDR L)) @YMREPLIES)
48100 (PUTPROP (CAADDR L) (CADDR (CDDDDR L)) @IYREPLIES)
48200 (PUTPROP (CAADDR L) (CADDDR (CDDDDR L)) @ YMREPLIES)
48300 ) )) TOKENINF)
48400
48500 ~ VERBS OR OTHER TOKENS REQUIRING AN OBJECT
48600
48700 (SETQ RL @ (
48800 HELP ASSIST AID SUPPORT HELPING APPROVE
48900 BELIEVE ACCEPT FAVOR ASSURE REASSURE
49000 FOLLOW TRUST CONFIDE SHARE JOIN SYMPATHIZE
49100 LIKE
49200 HARM HURT CRITICIZE ACCUSE BLAME RIDICULE ATTACK
49300 DISBELIEVE MISUNDERSTAND MISUNDERSTOOD
49400 DISTRUST MISTRUST SUSPECT DISLIKE
49500 REJECT REJECTING
49600 ))
49700
49800 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @RELN))) RL)
49900
50000
50100 (DEFPROP SACTS (THINK BELIEVE UNDERSTAND ASSUME GUESS WONDER FEEL) IND)
50200
50300 (DEFPROP DISCUSS ((TELL) (GO) (TALK) (DISCUSS) (SAY)) IND)
50400 (DEFPROP QUES ((ANSWER) (ASK) (QUESTION) (QUESTIONS)) IND)
50500 (DEFPROP SELF ((ANYTHING)(MORE)(ON)(AHEAD) (SOMETHING) (YOURSELF) (WHAT) (EXPERIENCES)) IND)
50600
50700 (DEFPROP DEFENSREPLIES
50800 ((WHY ARE YOU INTERESTED IN MY)
50900 (LETS FORGET ABOUT)
51000 (WHAT DO YOU KNOW ABOUT)
51010 (WHAT ABOUT MY)
51100 (WHY THE DIG AT MY)) IND)
51200
51300
51400 (DEFPROP ACCUSE (
51500 (IT'S ABOUT TIME YOU SHOWED SOME INTEREST IN MY FEELINGS)
51600 (FORGET THE EXCUSES/, YOU DOCTORS ALL TALK ALIKE)
51700 (FINALLY YOU ARE AWARE OF MY FEELINGS)
51800 (WHY DON'T YOU QUIT ALL THESE GAMES?)
51900 (NEVER MIND/, I KNOW WHAT YOU'RE TRYING TO DO)
52000 ) IND)
52100
52200 (DEFPROP DISTANCE (((GUARDED LOOK) I DOUBT IF YOU ARE BEING HONEST WITH ME)
52300 (I WISH I COULD BELIEVE YOU)
52400 ((LOOKS SKEPTICAL) FLATTERY WILL GET YOU NOWHERE)
52500 (I CAN'T STAND PEOPLE WHO TRY TO BUTTER ME UP)
52600 (LET'S NOT PLAY ANY GAMES)) IND)
52700
52800 (DEFPROP HOSTILEREPLIES (
52900 (I HAVE DOUBTS ABOUT YOU)
53000 (DO YOU KNOW WHAT YOU'RE DOING?)
53100 (PERHAPS YOU ARE JUST POSING AS A DOCTOR)
53200 (SOMEBODY SHOULD TEACH YOU A LESSON ABOUT INTERVIEWING)
53300 (YOU HAVE MISSED THE POINT)
53400 (YOU JERK)
53500 (YOU OBVIOUSLY HAVEN'T HAD MUCH EXPERIENCE IN PSYCHIATRY)
53600 (HAVE YOU EVER INTERVIEWED A PATIENT BEFORE?)
53700 (ARE YOU REALLY A DOCTOR?)
53800 (YOU PSYCHIATRISTS ARE ALL CRAZY)
53900 (YOU KNOW/, ALL YOU SHRINKS ARE HUNG UP ON SEX)
54000 (I THINK YOU ARE FULL OF SHIT)
54100 (YOU DON'T KNOW HOW TO TALK WITH PATIENTS)
54200 (YOU SEEM LIKE A BEGINNER IN PSYCHIATRY TO ME)
54300 (YOU SHOULD BE IN SOME OTHER LINE OF WORK)
54400 (I DON'T WANT TO TALK WITH YOU ANY MORE/, BUZZ OFF)
54500 (WE ARE NOT GETTING ANYWHERE)
54600 (PEOPLE LIKE YOU THINK YOU KNOW EVERYTHING)
54700 (YOU ARE HARDLY BEING SENSITIVE TO MY FEELINGS)
54800 (WHY DON'T YOU KEEP YOUR STUPID REMARKS TO YOURSELF)) IND)
54900
55000
55100 (DEFPROP INSULT (STUPID CREEP DUMBELL STINK FATHEAD SCREWED SCREWS IDIOT DUMB ASS ASSHOLE DUMMY
55200 SADIST SADISTIC MASOCHIST MASOCHISTIC SCREWY BASTARD STUBBORN
55210 NUTTY BIZARRE UGLY FINK EVASIVE DUMBASS NASTY FOOL NURD PSYCHOTIC LYING LIE
55300 BITCH SNOTTY VAIN NINCOMPOOP SCREW NUT NUTS JERK FLIPPED CRAZY INSANE SANE) IND)
55400
55500 (DEFPROP COMPL (INTELLIGENT OBSERVANT PERCEPTIVE UNDERSTANDING NICE BRIGHT
55510 ATTRACTIVE CLEVER BRILLIANT SMART REASONABLE
55520 SHARP WISE SENSIBLE SANE RATIONAL LOGICAL BEAUTIFUL
55530 HANDSOME LIKEABLE LOVABLE AGREEABLE
55600 ) IND)
55700
55800 (DEFPROP ANGER (((SOCKS YOU IN THE NOSE)
55900 WHEN YOU DON'T KNOW WHAT TO SAY YOU CALL PEOPLE NAMES)
56000 ((GNASHES TEETH) YOU SHOULD BE FIRED FOR TALKING THAT WAY TO A PATIENT)
56100 ((SHAKES FIST AT YOU)
56200 YOU ARE A JERK WHO BELONGS IN SOME OTHER BUSINESS)
56300 (YOU ARE TRYING TO START A FIGHT)
56400 (YOU ARE HOSTILE TO ME)
56500 (INSULTS WILL GET YOU NOWHERE)
56600 ) IND)
56700
56800 (DEFPROP APOL (
56900 (SORRY) (APOLOGIZE)
57000 (I WASN'T) (I DIDN'T)
57100 (I WAS) (I DID)
57200 (YOU RIGHT) (YOU CORRECT)
57300 ) IND)
57400
57500 (DEFPROP PERS (
57600 (ARE YOU TRYING TO SAY SOMETHING?)
57700 (WHY DO YOU SAY THAT?)
57800 (WHAT ARE YOU IMPLYING?)
57900 ) IND)
58000
58100 (DEFPROP SENSREPLIES ((WHAT DO YOU MEAN BY)
58200 (WHAT DO YOU MEAN)
58300 (WHY DO YOU SAY)
58400 (WHAT EXACTLY DO YOU MEAN BY)) IND)
58500
58600 (DEFPROP GUARD (
58700 (WHAT DO YOU THINK ABOUT MY)
58800 (LET'S FORGET ABOUT THINGS LIKE)
58900 ) IND)
59000
59100 (DEFPROP QFEEL (
59200 (MAYBE)
59300 (THAT IS VERY POSSIBLE)
59400 (YOU MIGHT SAY THAT)
59500 ) IND)
59600
59700 (DEFPROP WFEEL (
59800 (SHOULDN'T I BE?)
59900 (WHY NOT?)
60000 (BECAUSE I HAVE A RIGHT TO BE)
60100 (YOU WOULD BE TOO UNDER THE CIRCUMSTANCES)
60200 (I DON'T WANT TO TALK ABOUT THIS ANYMORE)
60300 ) IND)
60400
60500 (DEFPROP CAUTION (((EYES YOU DUBIOUSLY) REALLY?)
60600 ((DISTRUSTFUL) ARE YOU TAKING THIS SERIOUSLY?)
60700 (I DON'T KNOW IF I CAN TRUST WHAT YOU SAY)
60800 (PERHAPS YOU ARE AN IMPOSTOR)
60900 (I'M WORRIED ABOUT WHAT YOU ARE UP TO)
61000 (I DON'T THINK YOU ARE SINCERE)
61100 (THERE'S SOMETHING FISHY ABOUT YOU) ) IND)
61200
61300 (DEFPROP AFRAID ((WHO ARE YOU REALLY?)
61400 (ARE YOU TRYING TO FRIGHTEN ME?)
61500 (I AM GETTING AFRAID OF YOU )
61600 (YOU ARE MAKING ME NERVOUS )
61700 (WHAT ARE YOU TRYING TO DO?)
61800 (WHAT DO YOU KNOW ABOUT ME?)) IND)
61900
62000
62100 (DEFPROP THREATQ (
62200 (YOU ASK TOO MANY PERSONAL QUESTIONS)
62300 (WHY DO YOU WANT TO KNOW?)
62400 (YOU WOULDN'T UNDERSTAND IT ANYWAY)
62500 (TELLING YOU WOULDN'T HELP ANY)
62600 (WHY ARE YOU SO INTERESTED IN THAT?)
62700 (YOU ARE TOO NOSEY)
62800 (YOU PRY TOO MUCH)
62900 (THAT'S FOR ME TO KNOW AND YOU TO FIND OUT)
63000 (I'M NOT SURE I TRUST YOU)
63100 ) IND)
63200
63300 (DEFPROP SEEM (
63400 (YOU'RE ENTITLED TO YOUR OWN OPINION)
63500 (YOU REALLY THINK SO)
63600 (SO WHAT?)
63700 (YOU THINK YOU HAVE FOUND OUT SOMETHING ABOUT ME/, DON'T YOU?)
63800 (COULD BE)
63900 (THAT IS A GOOD POINT)
64000 (YOU COULD BE RIGHT)
64100 ) IND)
64200
64300 (DEFPROP ABNORMAL (
64400 (NEED HELP) (NEED TREATMENT)
64500 (NEED DOCTOR) (NEED HOSPITAL)
64600 (SICK) (ILL) (INSANE) (MENTAL) (MENTALLY)
64700 (PARANOID) (PARANOIA) (DELUSION) (DELUSIONS)
64800 (SCHIZOPHRENIC SCHIZOPHRENIA DELUSIONAL)
64900 ) IND)
65000
65100 (DEFPROP ALIEN (((STARTS FROM CHAIR) I KNOW YOU'RE ALL IN THIS TOGETHER)
65200 ((TENSELY) I THINK I KNOW WHAT YOU DOCTORS ARE UP TO)
65300 (YOU WANT TO KEEP ME IN THE HOSPITAL)
65400 (I KNOW YOU ARE GOING TO TRY TO GIVE ME ELECTRIC SHOCK)
65500 ( I WILL NOT CONSENT TO ELECTRIC SHOCK)
65600 (I THINK YOU KNOW DAMN WELL WHAT IS GOING ON)
65700 (YOU ARE TRYING TO BREAK ME DOWN)
65800 ((STARES AT YOU) YOU'RE IN WITH ALL THE REST)) IND)
65900
66000
66100 (DEFPROP PANIC (((FREEZES))
66200 ((PANICS))
66300 ((LOOKS AROUND ROOM))) IND)
66400
66500
66600 (DEFPROP SUSPREPLIES (((FROWN))
66700 ((DISTRUSTFUL LOOK))
66800 (WHAT ABOUT)
66900 ) IND)
67000
67100 (DEFPROP NEXTFL (
67200 (DO YOU KNOW ANYTHING ABOUT)
67300 (WHAT DO YOU KNOW ABOUT)
67400 (HAVE YOU EVER REALLY THOUGHT ABOUT)
67500 (YOU HAVE TO BE CAREFUL ABOUT)
67600 (ANOTHER THING IS)
67700 (MAYBE YOU HAVE TO WATCH OUT FOR)
67800 ) IND)
67900
68000 (DEFPROP FEELER ((WHAT DO YOU THINK ABOUT ALL THIS?)
68100 (NOW YOU MAY HAVE SOME IDEA OF WHAT THE SITUATION IS)
68200 (WHAT DO YOU THINK OF MY STORY?)
68300 ) IND)
68400
68500 (DEFPROP SILENCE (((NERVOUS) WHAT'S THE MATTER?)
68600 ((IRRITATED) WHY DON'T YOU SAY SOMETHING?)
68700 (CAN'T YOU THINK OF A DECENT QUESTION TO ASK?)
68800 (YOU'RE TRYING TO MAKE ME TALK BY NOT SAYING ANYTHING)
68900 (YOU'RE JUST PLAYING GAMES AGAIN)
69000 ((SHIFTS UNEASILY))
69100 (WHY ARE YOU SILENT?)
69200 (YOU ARE BEING EVASIVE)
69300 (THE OLD WAITING GAME)
69400 (YOU DON'T KNOW WHAT TO SAY)
69500 (TWO CAN PLAY THAT GAME)
69600 ) IND)
69700
69800 (DEFPROP CHANGESUBJ ((LET'S TALK ABOUT SOMETHING ELSE)
69900 (I'D RATHER NOT DISCUSS IT)
70000 (THAT'S SOMETHING I DON'T WANT TO GO INTO)
70100 (IT'S NONE OF YOUR BUSINESS)
70200 (I DON'T CONFIDE IN STRANGERS)
70300 ((LOOKS AT DOOR) LET'S CHANGE THE SUBJECT)) IND)
70400
70500 (DEFPROP OBJDATA ((CITY (PALO ALTO))
70610 (HOSPITAL (PALO ALTO VA))
70700 (YEAR (I973))
70710 (PRESIDENT (NIXON IS PRESIDENT))
70720 ((WHITE HOUSE)(DICK AND PAT NIXON))
70800 (DATE (I FORGET))
70810 (MONTH(MARCH ))
70900 (DAY (YOU TELL ME))
71000 ) IND)
71100
71200 (DEFPROP QLIST (HOW WHO WHOM WHAT WHEN WHERE WHY WHICH) IND)
71300
71400 (DEFPROP MANY (
71500 (TOO MANY)
71600 (ENOUGH)
71700 ) IND)
71800
71900 (DEFPROP MUCH (
71910 (GET LOST)
72000 (ENOUGH)
72100 (QUITE A BIT)
72200 (PRETTY MUCH)
72300 ) IND)
72400
72500 (DEFPROP LONG (
72600 (TOO LONG)
72700 (LONG ENOUGH)
72800 ) IND)
72900
73000 (DEFPROP OFTEN (
73100 (OFTEN ENOUGH)
73200 (PRETTY OFTEN)
73300 ) IND)
73400
73500 (DEFPROP WHY (
73600 (THAT'S JUST THE WAY IT IS)
73700 (THAT'S THE WAY IT GOES)
73800 ) IND)
73900
74000 (DEFPROP UNKNOWN ((WHAT DO YOU MEAN?)
74100 (WHAT ARE YOU GETTING AT?)
74110 (WHY DO YOU NEED TO KNOW THAT?)
74200 (I DON'T UNDERSTAND YOUR MOTIVES)
74300 (I DONT GET YOU )
74400 (I DON'T KNOW)
74500 (YOU ARE JUST TESTING ME)
74600 (IT'S BEYOND ME)
74700 (WHO KNOWS?)
74800 (I WONDER WHAT YOU ARE REALLY AFTER)
74900 (WHO CARES?)
75000 (I HAVE TROUBLE FOLLOWING YOU )
75100 ) IND)
75200
75300 (DEFPROP QREPLIES ((WELL/, I DON'T KNOW)
75400 (I WOULD SAY SO)
75500 (I GUESS SO)
75600 (MAYBE YES/, MAYBE NO)
75700 (COULD YOU ELABORATE ON THAT?)
75800 (OH SURE)
75900 (AND HOW)
76000 (COULD BE)) IND)
76100
76200
76300 (DEFPROP SREPLIES (
76400 (SO?)
76500 (REALLY?)
76600 (YOU DON'T SAY)
76700 (ANYTHING ELSE?)
76800 (THAT MIGHT BE)
76900 (AND NOW WHAT?)
77000 (THAT'S NOT VERY INTERESTING)
77100 (SO WHERE ARE WE?)
77200 (I SEE)
77300 (NOW WHAT DO YOU WANT TO ASK ME?)
77400 (WHAT IS YOUR NEXT QUESTION?)
77500 (HOW ABOUT THAT)
77600 (WHAT ELSE DO YOU WANT TO KNOW?)
77700 ) IND)
00100
00200 (SETQ SL @((SENSITIVELIST (LOOKS SEXLIFE FAMILY EDUCATION RELIGION) SETS)
00300
00400 (LOOKS (LOOKS LOOK APPEARANCE STARE PHYSICALLY BODY NOSE NOSES FEET SHOES FOOT) WORDS)
00500 (SEXLIFE (SEX SEXUAL HOMOSEXUAL HOMO QUEER DEVIATE PERVERT FAIRY QUEER BALL IMPOTENT
00600 HOMO GAY MASTURBATE MASTURBATION) WORDS)
00700 (FAMILY (FAMILY PARENTS FATHER MOTHER) WORDS)
00800 (EDUCATION (EDUCATION COLLEGE GRADUATES GRADUATE) WORDS)
00900 (RELIGION (RELIGION PROTESTANT PROTESTANTS GOD RELIGIOUS) WORDS)
01000 ))
01100
01200 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) SL)
01300
01400 (DEFPROP LOOKS X SPECIAL)
01500
01600 (DEFPROP ADJLIST (GOOD GREAT STRONG INTELLIGENT BEAUTIFUL GOODLOOKING NICE EDUCATED SUCCESSFUL)
01700 POS)
01800 (DEFPROP ADJLIST (BAD LOUSY WEAK STUPID UGLY HOMELY TERRIBLE UNEDUCATED UNSUCCESSFUL CROOKED
01900 NASTY ODD PECULIAR HOMOSEXUAL BIG ENORMOUS STRANGE FUNNY) NEG)
02000 (DEFPROP ADJLIST (UNUSUAL INTERESTING FASCINATING) AMBIG)
02100
02200
02300 (SETQ FL @((FLARELIST (RACKETSET GANGSTERSET PERSONSET CHEATSET BOOKIESET GAMBLERSET MONEYSET
02400 HORSERACINGSET POLICESET ITALIANSET HORSESET) SETS)
02500 (MAFIASET (MAFIA) WORDS)
02600 (RACKETSET (RACKETEERS RACKETTEERS RACKET RACKETS DOPE PROSTITUTE PROSTITUTES
02700 CRIME CRIMES CRIMINALS SYNDICATE MOB MOBSTERS CONVICTS CONS MOBSTER
02800 WHORE WHORES
02900 PROSTITUTION BOOTLEGGER BOOTLEGGERS BOOTLEG BOOTLEGGING SMUGGLE SMUGGLER
03000 SMUGGLERS SMUGGLING ) WORDS)
03100 (GANGSTERSET (GANGSTERS HOODLUMS HOODS UNDERWORLD GANGSTER
03200 CROOKS CROOKED HOODLUM HOOD ROB ROBS ROBBED THUG THUGS
03300 GANGLAND THIEF THIEVES THEFT ROBBER ROBBERS BUM BUMS) WORDS)
03400 (PERSONSET (ALIOTO CAPONE) WORDS)
03500 (CHEATSET (CHEATING CHEAT CHEATED FRAUD FAKE SWINDLE SWINDLED SWINDLER SWINDLERS
03600 GYP GYPPED TRICK TRICKED) WORDS)
03700 (BOOKIESET (BOOKIES BOOKIE BOOKMAKERS BOOKMAKING BOOKMAKER) WORDS)
03800 (GAMBLERSET (GAMBLING GAMBLE GAMBLERS BETTING BETS GAMBLER BET CARDS POKER ROULETTE CRAP
03900 DICE LOTTERY LUCKY UNLUCKY) WORDS)
04000 (MONEYSET (MONEY DOUGH WIN WINNINGS RICH BUY PAYROLL LEND BORROW SALARY
04100 TAXES LOAN BANK COST BREAD BILL BILLS PENNY PENNIES NICKEL NICKELS
04200 DIME DIMES DOLLAR DOLLARS) WORDS)
04300 (HORSERACINGSET (HORSERACING HORSERACES RACES RACING HORSERACE
04400 TRACK RACE RACETRACK RACETRACKS BAY MEADOWS JOCKEYS SWEEPSTAKES) WORDS)
04500 (POLICESET (POLICE COPS POLICEMEN POLICEMAN COP FBI
04600 ARREST ARRESTS ARRESTED LAWS LAWYERS JAILS PRISON PRISONS TRIAL TRIALS
04700 BRIBE BRIBES BRIBED PRISONER PRISONERS CELL CELLS COURT COURTS
04800 LAW LAWYER DETECTIVE DETECTIVES FUZZ JAIL) WORDS)
04900 (ITALIANSET (ITALIANS SICILIANS ITALIAN SICILIAN ITALY ROME ROMAN ROMANS) WORDS)
05000 (HORSESET (HORSES HORSE ANIMAL ANIMALS PONY PONIES NAG NAGS) WORDS)
05100 ))
05200 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) FL)
05300
05400 ~ % RESPECTIVE WEIGHTS OF THE GIVEN FLARE CONCEPTS %
05500
05600 (SETQ WTS @(17 15 12 10 9 7 6 5 4 3 1))
05700
05800 ~ %WEIGHTS ARE ASSIGNED TO CONCEPTS RATHER THAN TO INDIVIDUAL WORDS%
05900
06000 (SETQ FLARELIST (GET @FLARELIST @SETS))
06100 (MAPCAR (FUNCTION (LAMBDA (WT) (PROG2 (PUTPROP (CAR FLARELIST) WT @WT)
06200 (SETQ FLARELIST (CDR FLARELIST))))) WTS)
06300
06400 ~ % SIMILARLY FOR SENSITIVE CONCEPTS %
06500
06600 (SETQ WTS @(9 8 6 4 2))
06700
06800 (SETQ SENSITIVELIST (GET @SENSITIVELIST @SETS))
06900 (MAPCAR (FUNCTION (LAMBDA (WT) (PROG2 (PUTPROP (CAR SENSITIVELIST) WT @WT)
07000 (SETQ SENSITIVELIST (CDR SENSITIVELIST))))) WTS)
07100
07200 ~ % EACH FLARE CONCEPT POINTS TO ANOTHER FLARE CONCEPT A STEP CLOSER TO MAFIA DELUSION %
07300
07400 (SETQ POINTERS @((HORSESET HORSERACINGSET)
07500 (ITALIANSET GANGSTERSET)
07600 (PERSONSET GANGSTERSET)
07700 (POLICESET GANGSTERSET)
07800 (HORSERACINGSET BOOKIESET)
07900 (MONEYSET GAMBLERSET)
08000 (GAMBLERSET HORSERACINGSET)
08100 (BOOKIESET RACKETSET)
08200 (CHEATSET RACKETSET)
08300 (GANGSTERSET BOOKIESET)
08400 (RACKETSET MAFIASET)
08500 (MAFIASET MAFIASET)
08600 ))
08700
08800 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @INDIR)))
08900 @(CHEATSET MONEYSET))
09000
09100 (MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) @NEXT)))
09200 POINTERS)
09300
09400 (DEFPROP GANGSTERSET (( IT SEEMS TO ME THAT GANGSTERS HAVE A LOT OF INFLUENCE IN THIS COUNTRY )
09500 (I HAVE FELT GANGSTERS AND BOOKIES ARE PART OF ORGANIZED CRIME)
09600 ) STMTS)
09700 (DEFPROP PERSONSET ((PEOPLE DONT REALIZE HOW TOUGH GANGSTERS ARE)
09800 (PEOPLE DONT BELIEVE ME ABOUT GANGSTERS)
09900 ) STMTS)
10000 (DEFPROP RACKETSET ((I KNOW THE MOB CONTROLS THE BIG RACKETS)
10100 (I TOLD YOU THE MOB RUNS THE RACKETS)
10200 ) STMTS)
10300 (DEFPROP CHEATSET ((YOU CAN'T CHEAT AN HONEST MAN)
10400 (BOOKIES HAVE CHEATED ME)
10500 ) STMTS)
10600 (DEFPROP BOOKIESET (
10700 (A BOOKIE DIDN'T PAY ME OFF ONCE)
10800 (I HAD A FIGHT WITH THE BOOKIE WHO DID NOT PAY OFF/. LATER ON I REMEMBERED
10900 HE HAD FRIENDS IN THE UNDERWORLD AND I THOUGHT
11000 HE WOULD USE THEM TO GET EVEN WITH ME)
11100 ) STMTS)
11200 (DEFPROP GAMBLERSET ((GAMBLING HAS BEEN NOTHING BUT TROUBLE FOR ME)
11300 (I'VE HAD EXPERIENCE WITH CROOKS GAMBLING AT THE TRACK)
11400 ) STMTS)
11500 (DEFPROP MONEYSET (( I HAVE LOST A LOT OF MONEY GAMBLING )
11600 (I LOST MONEY GAMBLING WITH BOOKIES )
11700 ) STMTS)
11800 (DEFPROP HORSERACINGSET ((I USED TO GO TO THE TRACK EVERY WEEK)
11900 (I AVOID RACETRACKS NOW BECAUSE THE RACES ARE FIXED)
12000 ) STMTS)
12100 (DEFPROP POLICESET ((COPS DON'T DO THEIR JOB)
12200 (I THINK THE COPS ARE PAID OFF BY THE MOB)
12300 ) STMTS)
12400 (DEFPROP ITALIANSET ((ITS OBVIOUS TO ME GANGSTERS ARE MAINLY ITALIANS )
12500 (THE LAW SHOULD GET AFTER THOSE ITALIAN MOBSTERS)
12600 ) STMTS)
12700 (DEFPROP HORSESET ((I'VE BEEN INTERESTED IN HORSERACING FOR SOME TIME)
12800 (I READ THE RACING FORMS TO MAKE BETS)
12900 ) STMTS)
13000
13100 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP (CONS X @(0 NREF)))))) (CADAR FL))
13200
13300 ~ % TAG EACH WORD WITH THE CONCEPT SET TO WHICH IT BELONGS %
13400
13500 (MAPCAR (FUNCTION (LAMBDA (CONCEPT)
13600 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD CONCEPT @SET))) (GET CONCEPT @WORDS))))
13700 (GET @SENSITIVELIST @SETS))
13800
13900 (MAPCAR (FUNCTION (LAMBDA (CONCEPT)
14000 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD CONCEPT @SET))) (GET CONCEPT @WORDS))))
14100 (GET @FLARELIST @SETS))
14200 ~ % EXACT TYPE OF REPLY DEPENDS ON TYPE OF CONCEPT UNDER CONSIDERATION %
14300
14400 (MAPCAR (FUNCTION (LAMBDA (CONCEPT) (PUTPROP CONCEPT @INSTITUTION @TYPE)))
14500 @(MAFIASET POLICESET))
14600 (MAPCAR (FUNCTION (LAMBDA (CONCEPT) (PUTPROP CONCEPT @SPECIFIC @TYPE)))
14700 (APPEND @(GANGSTERSET BOOKIESET GAMBLERSET HORSERACINGSET ITALIANSET HORSESET)
14800 (GET @SENSITIVELIST @SETS)))
14900
15000 ~ % DATA RELATING TO DELUSIONAL COMPLEX %
15100
15200 ~ % S I N G L E WORDS ONLY ALLOWED IN DN, DV, AN, AV %
15300
15400 (SETQ DN @(MAFIA VIOLENCE DEATH SHOT SHOOTING VICTIM FATAL BULLET BULLETS
15500 BOMB BOMBS BLOOD BLOODY PISTOL RIFLE REVOLVER SHOTGUN GUN GUNS
15600 KNIFE KNIVES WEAPON WEAPONS
15700 ))
15800
15900 (SETQ DV @(KILL KILLED ESCAPE MURDER MURDERING MURDERED STAB STABBED SHOOT STRANGLE
16000 DESTROY CRUSH
16100 ))
16200
16300 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD T @STRONG))) (APPEND DN DV))
16400
16500 (SETQ AN @(
16600 CONTROL HARM HATRED THREAT THREATS
16700 ))
16800
16900 (SETQ AV @(
17000 FOLLOW BUG BUGGED BUGGING DIE DIED BEAT
17100 HARMED HARMING INFLUENCE INFLUENCING INFLUENCED
17200 THREATEN THREATENING CONTROLLING HIDE HIDING
17300 HATE
17400 ))
17500
17600 (SETQ ANV (APPEND AN AV))
17700
17800 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD T @AMBD))) ANV)
17900
18000 (PUTPROP @DELWDS ANV @AMBIG)
18100
18200 (PUTPROP @DELWDS (APPEND DN @(PLOT EAVESDROPPING SPY SPIES SPYING WIRETAPPING TRAP TRAPS
18300 CONSPIRACY CHIEF CHIEFTAIN CHIEFTAINS SOLDIER SOLDIERS (COSA NOSTRA)
18400 PRISONER BOSS BOSSES GANGLEADER GANGLEADERS BONANNOS BONNANOS BANANAS
18410 HENCHMAN HENCHMEN WATCHER WATCHERS ORGANIZATION GODFATHER
18500 (PHONE CALL) (PHONE CALLS) (FIFTH AMENDMENT)
18600 ENEMY ENEMIES PERSECUTORS STOOLIE STOOLPIGEON STOOLPIGEONS FINK
18700 MICROPHONE
18800 )) @NOUNS)
18900
19000 (PUTPROP @DELWDS (APPEND DV @(FOLLOWING FOLLOWED SPIED
19100 INCRIMINATE INCRIMINATING INCRIMINATED FRAME FRAMING FRAMED
19110 PURSUE PURSUING PURSUED
19200 PERSECUTE PERSECUTING PERSECUTED (IS OUT GET) (ARE OUT GET) (GET RID)
19300 (BEING OBSERVED) (BEING WATCHED) WATCHING WATCHED HURT CONTROLLED
19400 SECRET SECRETLY CROSS CROSSED DOUBLECROSS DOUBLECROSSED SQUEAL KIDNAP
19500 TAP TAPPED TAPPING
19600 )) @VERBS)
19700
19800 (DEFPROP MODIFIERS (A AN THE YOUR MY HIS HER THEIR
19900 ) IND)
20000
20100 (DEFPROP PRON (YOU ME YOURSELF MYSELF THEM) IND)
20200
20300 (DEFPROP ANREF ((THEY) (THEM) (IT)) IND)
20400
20500 (DEFPROP FEAR (((FEARFUL))
20600 ((PANICKED))
20700 ((NERVOUSLY))) IND)
20800
20900 (DEFPROP PREFACE (YOU KNOW/,) 1)
21000 (DEFPROP PREFACE (LIKE I'VE SAID/,) 2)
21100 (DEFPROP PREFACE (I TELL YOU/,) 3)
21200
21300 (SETQ DL @((DELUSIONS ((THEY KNOW ME)
21400 (THE MAFIA REALLY KNOW ABOUT ME)
21500 (THEY KNOW WHO I AM)) DEL1)
21600 (DELUSIONS ((THEY ARE OUT TO GET ME)
21700 (THEY ARE AFTER ME)
21800 (THEY ARE TRYING TO SCARE ME)) DEL2)
21900 (DELUSIONS ((THEY SPY ON ME)
22000 (THEY KNOW WHAT IM DOING)
22100 (THEY KEEP TABS ON ME)) DEL3)
22200 (DELUSIONS ((I HAVE INCRIMINATING EVIDENCE AGAINST THE MAFIA)
22300 (IVE GOT SOMETHING ON THEM)
22400 (IVE FOUND OUT ABOUT SOME OF THEIR SECRETS)) DEL4)
22500 (DELUSIONS ((I KNOW WHO THE LOCAL CHIEF OF THE MAFIA IS)
22600 (I KNOW THE BOSS OF THE MAFIA AROUND HERE)
22700 (IVE GOT A PRETTY GOOD IDEA ON WHO IS RUNNING THE ORGANIZATION IN THIS AREA)) DEL5)
22800 (DELUSIONS ((MAYBE THEY ARE GLAD I AM IN THE HOSPITAL)
22900 (THEY WANT TO KEEP ME IN THE HOSPITAL)
23000 (THEY DON'T WANT ME TO EVER LEAVE HERE)) DEL6)
23100 (DELUSIONS ((THEY TAP MY PHONE)
23200 (THEY BUG MY ROOM)
23300 (THEY HAVE ME FOLLOWED)) HOWSPY)
23400 (DELUSIONS ((THEY WANT TO GET FALSE EVIDDNCE TO FRAME ME)
23500 (THEY ARE LOOKING FOR A WAY TO INCRIMINATE ME)
23600 (THEY WANT TO SET A TRAP FOR ME)) WHYSPY)
23700 (DELUSIONS ((I'VE NOTICED IT NOW AND THEN IN THE PAST FEW MONTHS)
23800 (SEVERAL TIMES IN THE PAST FEW WEEKS)
23900 (THEY'RE CONSTANTLY DOING IT)) WHENSPY)
24000 (DELUSIONS ((WELL/, I DON'T WANT TO SAY RIGHT NOW/, BUT IT'S ALL BECOMING CLEAR)
24100 (I'VE FINALLY PUT THE PIECES TOGETHER)
24200 (DON'T WORRY/, I'VE GOT IT ALL FIGURED OUT)) AVOID)
24300 (DELUSIONS ((HE IS JOE BANANAS )
24400 (BANANAS CONTROLS THE ORGANIZATION)
24500 (BANANAS )) LEADER)
24600 (DELUSIONS ((THEY WANT ME OUT OF THE WAY)
24700 (THEY DON'T WANT ME TO TESTIFY)
24800 (THEY WANT TO KEEP ME A PRISONER IN THE HOSPITAL)) WHYHOSP)
24900 ))
25000 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) DL)
25100
25200 (SETQ AL @((ANSWERS ((((WHAT)) DEL2)(((HOW KNOW)) DEL3) (((WHO ARE)(WHY)) DEL4)) DEL1)
25300 (ANSWERS ((((WHY) (WHAT FOR) (PURPOSE) (REASON)) DEL4) (((HOW KNOW)) DEL3)) DEL2)
25400 (ANSWERS ((((HOW) (WAY)) HOWSPY) (((WHEN)) WHENSPY) (((WHY)) WHYSPY)) DEL3)
25500 (ANSWERS ((((WHAT)(WHERE)) AVOID)) DEL4)
25600 (ANSWERS ((((WHO) (HE) (HIM)) LEADER)) DEL5)
25700 (ANSWERS ((((WHEN)) WHENSPY) (((WHY)) WHYSPY)) HOWSPY)
25800 (ANSWERS ((((HOW)) HOWSPY) (((WHY)) DEL4)) WHYSPY)
25900 (ANSWERS ((((WHAT FOR) (WHY) (PURPOSE) (REASON)) WHYHOSP)) DEL6)
26000 ))
26100 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) AL)
26200
26300 (MAPCAR (FUNCTION (LAMBDA (I) (PUTPROP I 0 @FREQ)))
26400 @(DEL1 DEL2 DEL3 DEL4 DEL5 DEL6 HOWSPY WHYSPY WHENSPY AVOID LEADER WHYHOSP))
26500
26600 (DEFPROP MAFIASET (
26700 (I'VE TOLD YOU ALL I KNOW ABOUT THE MAFIA)
26800 (DIDN'T YOU LISTEN TO WHAT I SAID ABOUT THEM BEFORE?)
26900 (I SAID I DIDN'T WANT TO TALK ABOUT THAT ANYMORE)
27000 ) IND)
27100
27200 (DEFPROP DISBELIEF (
27300 (YOU SURE)
27400 (YOU THINK)
27500 (I DON'T)
27600 (NO ONE)
27700 (BUT)
27800 (DOUBT) (RIDICULOUS)
27900 (REASON) (EVIDENCE)
28000 (IMAGINING) (IMAGINATION)
28100 (YOU MISTAKEN)
28200 (YOU WRONG) (YOU INCORRECT)
28300 ) IND)
28400
28500 (DEFPROP BELIEVEREPLIES ((YOU DON'T BELIEVE ME?)
28600 (YOU DONT BELIEVE ME DO YOU)
28700 (YOURE SKEPTICAL LIKE ALL THE OTHERS WHO DONT KNOW)) IND)
28800
28900 (DEFPROP ALOOF (((EYES YOU SUSPICIOUSLY) NEVER MIND/, I'VE GOT IT ALL FIGURED OUT)
29000 (I KNOW MORE ABOUT THIS THAN YOU DO)
29100 (YOU DON'T KNOW MUCH ABOUT WHAT REALLY GOES ON)
29200 (YOU DON'T SEEM TO UNDERSTAND)
29300 (IT'S CLEAR TO ME IF NOT TO YOU)
29400 (YOU SEEM INSINCERE TO ME)
29500 (YOU ARE NOT TAKING THIS SERIOUSLY)
29600 (IT SEEMS LIKE I DON'T NEED YOUR HELP AFTER ALL)) IND)
29700
29800 (DEFPROP TURNOFF (((IRRITATED) OH FORGET IT)
29900 ((STARES AT YOU))
30000 ((HEADS FOR DOOR) YOU DON'T KNOW WHAT YOU'RE TALKING ABOUT/, FORGET IT)
30100 ) IND)
30200 (DEFPROP EXHAUST (
30300 (I HAVE ALREADY TOLD YOU ENOUGH ABOUT THAT)
30400 (YOU KEEP SAYING THE SAME THINGS/,
30500 WHY NOT CHANGE THE TOPIC?)
30600 (I WOULD RATHER NOT DISCUSS THAT ANYMORE)
30700 (I AM GETTING TIRED OF HEARING THE SAME THINGS
30800 OVER AND OVER)
30900 (YOU HARP ON THE SAME THINGS TOO MUCH)
31000 (IN MY OPINION YOU HAVE A ONE-TRACK MIND)
31100 (WHAT'S WRONG WITH YOU THAT YOU KEEP ON
31200 BUGGING ME ABOUT THIS?)
31300 (THE WAY YOU REPEAT YOURSELF IS GETTING RIDICULOUS)
31400 (YOU ARE A REAL NAG)
31500 (I HAVE HAD ENOUGH OF THIS)
31600 ) IND)
00100 (SETQ IBASE 8.)
00200
00300
00400 (LAP SEND SUBR)
00500 (JRST BEGIN#)
00600 LETTER#
00700 (0 0)
00800 (0 0)
00900 (0 0)
01000 (0 0)
01100 (0 0)
01200 (0 0)
01300 (0 0)
01400 (0 0)
01500 (0 0)
01600 (0 0)
01700 (0 0)
01800 (0 0)
01900 (0 0)
02000 (0 0)
02100 (0 0)
02200 (0 0)
02300 (0 0)
02400 (0 0)
02500 (0 0)
02600 (0 0)
02700 (0 0)
02800 (0 0)
02900 (0 0)
03000 (0 0)
03100 (0 0)
03200 (0 0)
03300 (0 0)
03400 (0 0)
03500 (0 0)
03600 (0 0)
03700 (0 0)
03800 (0 0)
03900 BEGIN#
04000 (CALL 1 (E SIXBIT))
04100 (MOVEM 1 JOB#)
04200 (40000 1 (C 564155 0 455156))
04300 (JRST 0 FAILED#)
04400 (710000 0 JOB#)
04500 (JRST 0 FAILED#)
04600 (MOVEI 1 LETTER#)
04700 (CALL 1 (E CLEAR_MAILBOX))
04800 (MOVEI 1 (QUOTE T))
04900 (POPJ P)
05000 FAILED#
05100 (MOVEI 1 LETTER#)
05200 (CALL 1 (E CLEAR_MAILBOX))
05300 (MOVEI 1 (QUOTE NIL))
05400 (POPJ P)
05500 JOB#
05600 (0 0)
05700 (0 0 LETTER#)
05800 NIL
05900
06000 (LAP WRCV SUBR)
06100 (JRST BEGIN#)
06200 LETTER#
06300 (0 0)
06400 (0 0)
06500 (0 0)
06600 (0 0)
06700 (0 0)
06800 (0 0)
06900 (0 0)
07000 (0 0)
07100 (0 0)
07200 (0 0)
07300 (0 0)
07400 (0 0)
07500 (0 0)
07600 (0 0)
07700 (0 0)
07800 (0 0)
07900 (0 0)
08000 (0 0)
08100 (0 0)
08200 (0 0)
08300 (0 0)
08400 (0 0)
08500 (0 0)
08600 (0 0)
08700 (0 0)
08800 (0 0)
08900 (0 0)
09000 (0 0)
09100 (0 0)
09200 (0 0)
09300 (0 0)
09400 (0 0)
09500 BEGIN#
09600 (MOVEI 1 LETTER#)
09700 (CALL 1 (E CLEAR_MAILBOX))
09800 (710000 1 LETTER#)
09900 (MOVEI 1 LETTER#)
10000 (MOVEI 2 (QUOTE FIXNUM))
10100 (JCALL 2 (E MAKNUM))
10200 NIL
10300
10400 (LAP SRCV SUBR)
10500 (JRST BEGIN#)
10600 LETTER#
10700 (0 0)
10800 (0 0)
10900 (0 0)
11000 (0 0)
11100 (0 0)
11200 (0 0)
11300 (0 0)
11400 (0 0)
11500 (0 0)
11600 (0 0)
11700 (0 0)
11800 (0 0)
11900 (0 0)
12000 (0 0)
12100 (0 0)
12200 (0 0)
12300 (0 0)
12400 (0 0)
12500 (0 0)
12600 (0 0)
12700 (0 0)
12800 (0 0)
12900 (0 0)
13000 (0 0)
13100 (0 0)
13200 (0 0)
13300 (0 0)
13400 (0 0)
13500 (0 0)
13600 (0 0)
13700 (0 0)
13800 (0 0)
13900 BEGIN#
14000 (MOVEI 1 LETTER#)
14100 (CALL 1 (E CLEAR_MAILBOX))
14200 (710000 2 LETTER#)
14300 (JRST 0 NOLETT#)
14400 (MOVEI 1 LETTER#)
14500 (MOVEI 2 (QUOTE FIXNUM))
14600 (JCALL 2 (E MAKNUM))
14700 NOLETT#
14800 (MOVEI 1 (QUOTE NIL))
14900 (POPJ P)
15000 NIL
15100
15200 (LAP MAIL_IS_WAITING SUBR)
15300 (CAIE 1 (QUOTE ME))
15400 (JRST 0 HIM#)
15500 (710000 3)
15600 (JRST 0 NOMAIL#)
15700 (JRST 0 MAIL#)
15800 HIM#
15900 (CALL 1 (E SIXBIT))
16000 (40000 1 (C 564155 0 455156))
16100 (JRST 0 NOMAIL#)
16200 (710000 4 1)
16300 (JRST 0 NOMAIL#)
16400 MAIL#
16500 (MOVEI 1 (QUOTE T))
16600 (POPJ P)
16700 NOMAIL#
16800 (MOVEI 1 (QUOTE NIL))
16900 (POPJ P)
17000 NIL
17100
17200 (LAP CLEAR_MAILBOX SUBR)
17300 (402000 0 0 1)
17400 (514000 2 1)
17500 (271000 1 1)
17600 (540000 2 1)
17700 (271000 1 36)
17800 (HRRM 1 BLT#)
17900 BLT#
18000 (251000 2 0)
18100 (MOVEI 1 (QUOTE NIL))
18200 (POPJ P)
18300 NIL
18400
18500 (LAP JOB_EXISTS SUBR)
18600 (CALL 1 (E SIXBIT))
18700 (40000 1 (C 564155 0 455156))
18800 (JRST 0 NO#)
18900 (MOVEI 1 (QUOTE T))
19000 (POPJ P)
19100 NO#
19200 (MOVEI 1 (QUOTE NIL))
19300 (POPJ P)
19400 NIL
19500
19600 (LAP SLEEP SUBR)
19700 (275000 1 577777)
19800 (47000 1 31)
19900 (MOVEI 1 (QUOTE NIL))
20000 (POPJ P)
20100 NIL
20200
20300 (LAP SAVEJOB SUBR)
20400 (MOVEM 2 SAVEXT#)
20500 (CALL 1 (E SIXBIT))
20600 (MOVEM 1 SAVNAM#)
20700 (MOVE 1 SAVEXT#)
20800 (JUMPE 1 SAVACS#)
20900 (CALL 1 (E SIXBIT))
21000 (MOVEM 1 SAVEXT#)
21100 SAVACS#
21200 (MOVEM 0 AC0#)
21300 (MOVE 0 (C 1 0 AC1#))
21400 (251000 0 AC17#)
21500 (MOVE 1 (C SAVE# 0))
21600 (47000 1 400004)
21700 START#
21800 (MOVE 0 (C AC1# 0 1))
21900 (251000 0 17)
22000 (MOVE 0 AC0#)
22100 (MOVEI 1 (QUOTE NIL))
22200 (POPJ P)
22300 SAVE#
22400 (446353 0 0)
22500 SAVNAM#
22600 (0 0)
22700 SAVEXT#
22800 (0 0)
22900 (0 0 START#)
23000 (0 0)
23100 AC0#
23200 (0 0)
23300 AC1#
23400 (0 0)
23500 (0 0)
23600 (0 0)
23700 (0 0)
23800 (0 0)
23900 (0 0)
24000 (0 0)
24100 (0 0)
24200 (0 0)
24300 (0 0)
24400 (0 0)
24500 (0 0)
24600 (0 0)
24700 (0 0)
24800 AC17#
24900 (0 0)
25000 NIL
25100
25200 (LAP SKIPCH SUBR)
25300 (51000 2 1)
25400 (JRST 0 NOCHAR#)
25500 (CALL 1 (E ASCII))
25600 (JCALL 1 (E INTERN))
25700 NOCHAR#
25800 (MOVEI 1 (QUOTE NIL))
25900 (POPJ P)
26000 NIL
26100
26200 (LAP CLEAR_BUFFER SUBR)
26300 (51000 11)
26400 (CALL 0 (E SKIPCH))
26500 (51000 11)
26600 (MOVEI 1 (QUOTE NIL))
26700 (POPJ P)
26800 NIL
26900
27000 (LAP SIXBIT SUBR)
27100 (MOVEI 2 (QUOTE PNAME))
27200 (CALL 2 (E GET))
27300 (HLRZ@ 2 1)
27400 (MOVE 2 0 2)
27500 (MOVEI 3 0)
27600 (HRRZ@ 1 1)
27700 (JUMPE 1 START#)
27800 (HLRZ@ 3 1)
27900 (MOVE 3 0 3)
28000 START#
28100 (402000 0 1)
28200 (MOVEI 7 6)
28300 (MOVE 4 (C 440700 0 2))
28400 (MOVE 5 (C 440600 0 1))
28500 LOOP#
28600 (134000 6 4)
28700 (JUMPE 6 END#)
28800 (275000 6 40)
28900 (136000 6 5)
29000 (367000 7 LOOP#)
29100 END#
29200 (POPJ P)
29300 NIL
29400
29500 (LAP SEND_MAIL SUBR)
29600 (PUSH P 1)
29700 (PUSH P 2)
29800 (PUSH P (C 0 0 (QUOTE NIL) 0))
29900 (PUSH P (C 0 0 (QUOTE NIL) 0))
30000 (PUSH P (C 0 0 (QUOTE NIL) 0))
30100 (CALL 1 (E JOB_EXISTS))
30200 (JUMPE 1 G0007)
30300 G0011 (MOVE 1 -3 P)
30400 (CALL 1 (E STRP))
30500 (JUMPE 1 G0014)
30600 (MOVE 1 -3 P)
30700 (JRST 0 G0013)
30800 G0014 (MOVE 1 -3 P)
30900 (CALL 1 (E EXPLODE))
31000 (MOVEI 2 (QUOTE (/")))
31100 (CALL 2 (E *APPEND))
31200 (MOVEI 2 (QUOTE /"))
31300 (CALL 2 (E XCONS))
31400 (CALL 1 (E READLIST))
31500 G0016
31600 G0013 (MOVEI 2 (QUOTE PNAME))
31700 (CALL 2 (E GET))
31800 (MOVEI 2 (QUOTE SUBR))
31900 (MOVEM 1 -1 P)
32000 (MOVEI 1 (QUOTE SEND))
32100 (CALL 2 (E GET))
32200 (MOVEI 2 (QUOTE FIXNUM))
32300 (CALL 2 (E MAKNUM))
32400 (MOVEI 2 (QUOTE 1))
32500 (CALL 2 (E *PLUS))
32600 (MOVEM 1 0 P)
32700 G0001 (PUSH P (C 0 0 (QUOTE NIL) 0))
32800 G0002 (MOVE 1 -5 P)
32900 (CALL 1 (E MAIL_IS_WAITING))
33000 (JUMPE 1 G0031)
33100 (MOVEI 1 (QUOTE 1))
33200 (CALL 1 (E SLEEP))
33300 (MOVEM 1 0 P)
33400 (JRST 0 G0030)
33500 G0031 (MOVE 1 0 P)
33600 (JRST 0 G0027)
33700 G0034
33800 G0030 (JRST 0 G0002)
33900 G0027 (SUB P (C 0 0 1 1))
34000 (PUSH P -1 P)
34100 (PUSH P -1 P)
34200 (MOVEI 2 (QUOTE 37))
34300 (MOVE 1 -2 P)
34400 (CALL 2 (E *PLUS))
34500 (PUSH P 1)
34600 (PUSH P (C 0 0 (QUOTE NIL) 0))
34700 (PUSH P (C 0 0 (QUOTE NIL) 0))
34800 G0004 (MOVE 1 -4 P)
34900 (JUMPE 1 G0005)
35000 (MOVE 2 -2 P)
35100 (MOVE 1 -3 P)
35200 (CALL 2 (E *GREAT))
35300 (JUMPN 1 G0005)
35400 G0045 (MOVE 1 -4 P)
35500 (MOVEM 1 -7 P)
35600 (MOVE 1 -3 P)
35700 (MOVEI 2 (QUOTE FIXNUM))
35800 (MOVEM 1 -1 P)
35900 (HLRZ@ 1 -7 P)
36000 (CALL 2 (E MAKNUM))
36100 (CALL 1 (E EXAMINE))
36200 (MOVE 2 1)
36300 (MOVE 1 -1 P)
36400 (CALL 2 (E DEPOSIT))
36500 (MOVEM 1 0 P)
36600 (HRRZ@ 1 -4 P)
36700 (MOVEM 1 -4 P)
36800 (MOVE 1 -3 P)
36900 (CALL 1 (E ADD1))
37000 (MOVEM 1 -3 P)
37100 (JRST 0 G0004)
37200 G0005 (MOVE 1 -4 P)
37300 (JUMPN 1 G0055)
37400 (CLEARB 1 -7 P)
37500 (JUMPN 1 G0054)
37600 G0055
37700 G0054 (MOVE 1 0 P)
37800 (SUB P (C 0 0 5 5))
37900 (MOVE 1 -4 P)
38000 (CALL 1 (E SEND))
38100 (JUMPE 1 G0007)
38200 (MOVE 1 -2 P)
38300 (JUMPN 1 G0059)
38400 (MOVEI 1 (QUOTE T))
38500 (JRST 0 G0006)
38600 G0059 (HRRZ@ 1 -2 P)
38700 (MOVEM 1 -1 P)
38800 (JRST 0 G0001)
38900 G0060
39000 G0007 (MOVEI 1 (QUOTE NIL))
39100 G0006 (SUB P (C 0 0 5 5))
39200 (POPJ P)
39300 NIL
39400
39500
39600 (LAP GET_MAIL SUBR)
39700 (MOVEI 2 (QUOTE SRCV))
39800 (JCALL 2 (E RECEIVE_MAIL))
39900 NIL
40000
40100
40200 (LAP WAIT_FOR_MAIL SUBR)
40300 (MOVEI 2 (QUOTE WRCV))
40400 (JCALL 2 (E RECEIVE_MAIL))
40500 NIL
40600
40700
40800 (LAP RECEIVE_MAIL SUBR)
40900 (PUSH P 1)
41000 (PUSH P 2)
41100 (CALL 0 (E GENSYM))
41200 (MOVEI 2 (QUOTE PNAME))
41300 (PUSH P 1)
41400 (CALL 2 (E GET))
41500 (MOVEI 2 (QUOTE FIXNUM))
41600 (HLRZ@ 1 1)
41700 (CALL 2 (E MAKNUM))
41800 (PUSH P 1)
41900 (PUSH P (C 0 0 (QUOTE NIL) 0))
42000 (PUSH P (C 0 0 (QUOTE NIL) 0))
42100 (PUSH P (C 0 0 (QUOTE NIL) 0))
42200 (CALLF@ 0 -5 P)
42300 (MOVEM 1 0 P)
42400 (JUMPE 1 G0070)
42500 G0078
42600 G0067 (PUSH P 0 P)
42700 (MOVEI 2 (QUOTE 37))
42800 (MOVE 1 -1 P)
42900 (CALL 2 (E *PLUS))
43000 (PUSH P 1)
43100 (PUSH P (C 0 0 (QUOTE NIL) 0))
43200 (PUSH P (C 0 0 (QUOTE NIL) 0))
43300 G0068 (MOVE 2 -2 P)
43400 (MOVE 1 -3 P)
43500 (CALL 2 (E *GREAT))
43600 (JUMPE 1 G0085)
43700 (MOVE 2 0 P)
43800 (JRST 0 G0080)
43900 G0085
44000 G0087 (MOVE 2 -3 P)
44100 (MOVEM 2 -1 P)
44200 (MOVE 1 2)
44300 (CALL 1 (E EXAMINE))
44400 (MOVE 2 1)
44500 (MOVE 1 -7 P)
44600 (CALL 2 (E DEPOSIT))
44700 (MOVEI 2 (QUOTE 0))
44800 (CALL 2 (E EQUAL))
44900 (JUMPE 1 G0090)
45000 (MOVEI 2 (QUOTE T))
45100 (MOVEM 2 -6 P)
45200 (MOVEI 2 (QUOTE NIL))
45300 (JRST 0 G0089)
45400 G0090 (MOVE 1 -10 P)
45500 (CALL 1 (E EXPLODEC))
45600 (MOVE 2 1)
45700 G0094
45800 G0089 (MOVE 1 0 P)
45900 (CALL 2 (E *APPEND))
46000 (MOVEM 1 0 P)
46100 (MOVE 2 -6 P)
46200 (JUMPE 2 G0100)
46300 (EXCH 2 1)
46400 (JRST 0 G0080)
46500 G0100
46600 G0101 (MOVE 1 -3 P)
46700 (CALL 1 (E ADD1))
46800 (MOVEM 1 -3 P)
46900 (JRST 0 G0068)
47000 G0080 (MOVE 1 -5 P)
47100 (CALL 2 (E *APPEND))
47200 (SUB P (C 0 0 4 4))
47300 (MOVEM 1 -1 P)
47400 (JUMPN 1 G0108)
47500 (MOVE 1 -6 P)
47600 (JUMPE 1 G0110)
47700 (MOVEI 1 (QUOTE NIL))
47800 (JRST 0 G0109)
47900 G0110 (MOVEI 1 (QUOTE ""))
48000 G0111
48100 G0109 (JRST 0 G0069)
48200 G0108 (CALL 1 (E LAST))
48300 (HLRZ@ 2 1)
48400 (CAIE 2 (QUOTE /"))
48500 (JRST 0 G0114)
48600 (MOVE 1 -6 P)
48700 (JUMPE 1 G0118)
48800 (MOVE 1 -1 P)
48900 (CALL 1 (E REVERSE))
49000 (HRRZ@ 1 1)
49100 (CALL 1 (E REVERSE))
49200 (JRST 0 G0117)
49300 G0118 (MOVE 2 -1 P)
49400 (MOVEI 1 (QUOTE /"))
49500 (CALL 2 (E CONS))
49600 G0122
49700 G0117 (CALL 1 (E READLIST))
49800 (JRST 0 G0069)
49900 G0114 (MOVE 1 -2 P)
50000 (JUMPE 1 G0127)
50100 (MOVE 1 -6 P)
50200 (JUMPE 1 G0129)
50300 (MOVE 1 -1 P)
50400 (JRST 0 G0128)
50500 G0129 (MOVEI 1 (QUOTE /"))
50600 (CALL 1 (E NCONS))
50700 (MOVE 2 1)
50800 (MOVE 1 -1 P)
50900 (CALL 2 (E *APPEND))
51000 (MOVEI 2 (QUOTE /"))
51100 (CALL 2 (E XCONS))
51200 G0130
51300 G0128 (CALL 1 (E READLIST))
51400 (JRST 0 G0069)
51500 G0127 (CALL 0 (E WRCV))
51600 (MOVEM 1 0 P)
51700 (JRST 0 G0067)
51800 G0137
51900 G0070 (MOVEI 1 (QUOTE NIL))
52000 G0069 (SUB P (C 0 0 7 7))
52100 (POPJ P)
52200 NIL
52300
52400
52500
52600 (SETQ IBASE 10.)